From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 29 Jan 2021 04:52:51 +0000 (+0100)
Subject: Slight gravatar.el code clean up
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~28^2~15^2~4309
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=3ddea271cc9542e29829629991a4073ab3cf5db9;p=emacs.git

Slight gravatar.el code clean up

* lisp/image/gravatar.el (gravatar--service-libravatar): Clean the
code up slightly.
---

diff --git a/lisp/image/gravatar.el b/lisp/image/gravatar.el
index b1e2a314ce8..f6f056a2baf 100644
--- a/lisp/image/gravatar.el
+++ b/lisp/image/gravatar.el
@@ -167,13 +167,12 @@ to track whether you're reading a specific mail."
                                         ;; ignore).
                                         (and (eq (dns-get 'type answers) 'SRV)
                                              answers)))
-                          (priorities (and (mapcar (lambda (r)
-                                                     (dns-get 'priority r))
-                                                   data)))
-                          (max-priority (if priorities
-                                            (apply #'max priorities)
-                                          0))
-                          (sum 0) top)
+                          (priorities (mapcar (lambda (r)
+                                                (dns-get 'priority r))
+                                              data))
+                          (max-priority (apply #'max 0 priorities))
+                          (sum 0)
+                          top)
                      ;; Attempt to find all records with the same maximal
                      ;; priority, and calculate the sum of their weights.
                      (dolist (ent data)